#!/usr/bin/env perl

use utf8;
use strict;
use DBI;

my $connect = DBI->connect("dbi:Pg:database=postgres;host=192.169.77.104;port=55432", "postgres", "postgres");

my $stmt = $connect->prepare("select * from test");

$stmt->execute();

my @row_array = $stmt->fetchrow_array;

print @row_array;

$stmt->finish;

$connect->disconnect();
